home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00012_Script_#go to bio < prev    next >
Text File  |  1997-07-29  |  1KB  |  45 lines
  1. global current_pm, prev_frame, profbio_rolls, the_rolls, virtualRolloverList, next_bsub, clearmenus, menusub_notgone
  2. on mouseup
  3.   if current_pm = 0 then abort
  4.   if the timer > 90 then
  5.     if rollover(the clickon) then
  6.       waitcursor the clickon
  7.       
  8.       if menusub_notgone = 0 then
  9.         
  10.         if clearmenus = TRUE then exit
  11.         
  12.         set next_bsub = ""
  13.         put current_pm into item 1 of next_bsub
  14.         put "bio" into item 2 of next_bsub
  15.         put 1 into item 3 of next_bsub
  16.         
  17.         put the frame into prev_frame
  18.         
  19.         
  20.         getbiolist 
  21.         see_sprite([15],false)
  22.         
  23.         if soundbusy(1) then 
  24.           sound fadeOut 1, 30
  25.         end if
  26.         
  27.         dobiorolls(item 3 of next_bsub) -- set the rolls for each bio screen
  28.         global credit_roll
  29.         put setbiocredit(current_pm) into credit_roll
  30.         
  31.         
  32.         puppettransition 01,2,16
  33.         --        puppetpalette "pal,"¤t_pm
  34.         go to frame marker(string(next_bsub))
  35.         
  36.         sound stop 1 -- just in case
  37.         puppetsprite 23, false
  38.         
  39.         set_cursors(profbio_rolls)
  40.         
  41.         bio_sub_on
  42.       end if
  43.     end if
  44.   end if
  45. end